Top 10k strings from Anagrammery (1993)(Garry Rowland).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 ;"{L9884}PRESS A KEY":
   2 ;"{L9884}PRESS A KEY"
   1 y,x;w$;"_   "
   1 t+" "+k$+"s"
   1 subtract duplicate perms
   1 seconds/840 anagrams gives time to send 1 anagram to stream 2,3 and 4
   1 k$="less than one "+k$
   1 k$=" second":
   1 k$=" minute":
   1 k$=" hour":
   1 f=total perms
   1 f$=" There "+("are "
   1 Y`]`N`N`D`
   1 Set PFN word width+extra for different caps width
   1 PFN-PRINT3
   1 PFN-LENGTH3
   1 PAUSE 0: BEEP .1,34: BEEP .1,27: RETURN
   1 Anagram   
   1 ALL DONE - PRESS A KEY
   1 ;i;" permutation";("s"
   1 ;"{L9886}1";
   1 ;"{L9886} Print output for anagrams is"'" currently through stream ";s;".";
   1 ;"{L9886} Enter a word three to twelve letters"'" long (without spaces)."
   1 ;"{L9886} Anagrammery is a public domain"'" program that creates anagrams of"'" any word 3 to 12 letters long.";
   1 ;"{L9886":
   1 ;"of ";w$;" displayed.";
   1 ;"by Garry Rowland"
   1 ;"Start character ?..."
   1 ;"Save program"
   1 ;"Print stream ";s''
   1 ;"Mask-out unlikely anagrams? (Y/N)"
   1 ;"Create anagrams"''
   1 ;"Automatic page turn? (Y/N)":
   1 ;" Select print width:"'
   1 ;" Print-out is through stream #3.";
   1 ;" Press new stream number:"'
   1 ;" Only unique permutations are"'" displayed or printed. There is also the"'" option to exclude anagrams that are"'" not likely to be pronouncable.";
   1 ;" Estimated RUN time:"'" ";k$;
   1 ;" 4 -> PFN channel"
   1 ;" 3 -> Printer channel"'
   1 ;" 2 -> ZX screen channel"'
   1 ;" 2 - Centronics 80 column";
   1 ;" - ZX 32 column"'
   1 23638-82":
   1 23637+256*
   1 1981, Spectrum version placed in public domain 1993.
   1 0088<<>>77331100
   1 );" of"'w$;" printed."
   1 )+f$+" unique permutation"+("s"
   1 )+("is only "
   1 )+" of the word "+w$+".":
   1 #s'i;" permutation";("s"
   1  put your printer init on this line
   1  calculate number of perms and time to display
   1  Title page
   1  Print redirection
   1  Input page
   1  Graphics:
   1  ANAGRAMMERY by Garry Rowland. Nascom version